program testArrayAssignmentValid;
class testArrayAssignmentValid

BEGIN

VAR 
    XRay : ARRAY[0..4] OF ARRAY[0..5] OF integer;
	Blah : number2;

FUNCTION testArrayAssignmentValid;
BEGIN
	Blah := new number2;
        Blah.Blah := 2;
        XRay[3][4] := Blah.Blah;
        print Blah.Blah
END

END

class number2

BEGIN

VAR Blah : integer;

END
.
